Sorg %>%ggplot(aes(x =ga_week))+geom_point(aes(y = t1_pg13_sum), color ="red")+geom_point(aes(y = t2_pg13_sum), color ="blue")+geom_point(aes(y = t3_pg13_sum), color ="yellow")
1.3 Example 3
Sorg %>%ggplot(aes(x =ga_week))+geom_point(aes(y = t1_pg13_sum), color ="red")+geom_point(aes(y = t2_pg13_sum), color ="blue")+geom_point(aes(y = t3_pg13_sum), color ="yellow")+facet_wrap(~gender)
2 Solution! Make the data longer (tidy) with pivot_longer()